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BEGIN 
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iw COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

it ond SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
is TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* —52—vo NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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16 
VAX=11 CONVERT 18.98 ,-1 4 AX11 BL ise-32 v4_0-742 Pa 
Foe ae ht rit HSE a st tb Po B32:1 — 
PSECT 
= _CONVSOWN —(P 
GLOBAL = ZCONVEGLOBAL ( 
= “CONVSCODE (8 


LIBRARY ‘SYSSLIBRARY:L1B.L32"; 
LIBRARY ‘SRC$:CONVERT’; 


1 
1 
1 
1 
1 
1 
1 
1 
i 
DEF INE_ERROR_CODES; 
1 LINKAGE 
1 CLSREAD BLOCK = JSB ( REGISTER = 2, REGISTER = 5 ), 
1 CLSWRITE BLOCK = JSB ( REGISTER = 2, REGISTER = 3); 
i CLSCHECKSUM = JSB ( REGISTER = 2); 
1 EXTERNAL ROUTINE 
1 CONVSSGET_VM : CLSGET_VM, 
1 CONVSSRMS_ERROR : NOVALUE, 
1 CONVSSRMS_OPEN_ERROR : NOVALUE,” 
CONVSSRMS-READ-ERROR : NOVALUE: 
1 FORWARD ROUTINE 
1 CONVS$SWRITE_AREA_DESC : CLSWRITE_AREA_DESC NOVALUE, 
1 CONVSSGET_NEXT_KEY : CLSGET_NEXT KEY, 
1 READ_BL BCR : CLSREAD BLOCK NOVALUE, 
1 wate BLOCK : CLSWRITE BLOCK NOVALUE, 
: CHECKSUM : CLSCHECKSUM; 
1 EXTERNAL 
1 CONVSAB_FLAGS : BLOCK C ,BYTE J, 
1 CONV$AB_OUT_FAB : $FAB_DECL, 
1 CONVS$AB_OUT-RAB : $RAB-DECL, 
1 CONV$AB_OUT_NAM : $NAMTDECL 
1 V$AB_OUT~XABSUM : $XABSUM_DECL, 
0098 1 CONVS$GB_PROC_V1 : BYTE, 
1 CONV$GB~PROL_V : BYTE, 
0101 1 CONVSGB— V : BYTE 
01 : 1 CONVSAR “PROLOGUE : REF BLOCK 163 
10 ONVSAR” AREA_BLOCK : REF St Oc KvECtOR ,AREASC_BLN,BYTE J; 
196 1 GLOBAL 
106 1 CONVSGL_KEY_DESC BUF F 
ot CONVSGL-KEY~DESC—V 
198 | om 
110 AREA_BLOCKS; 
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SSBTTL 


VAX=11 CONVERT 
OLOGUE 


1an$ep-1986 f2:15:68 — ECOvesRedeony 


On 


*READ PR OE 
GLOBAL ROUTINE CONVSSREAD_PROLOGUE : CLS$READ_ PROLOGUE NOVALUE = 


Functional Description: 


Reads the protogue blocks of the output file. The first block (VBN=1) 
is in the buffer pointed to 7 conv$ar_prologue. The area descriptors 
are read into the buffer pointed to by conv$ar_area_block. If there 
are more then one key descriptor an extra block is allocated and it 

is pointed to by key_desc_buf. 


Calling Sequence: 


conv$$read_prologue() 


Input Parameters: 
none 

Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 


Routines Called: 


CONVSSGET_VM 


Side Effects: 


BEGIN 


LOCA 


L 
TOTAL_BLOCKS; 


! The buffer is allocated thus: 


conv$ar_prologue : 


512 Bytes 


conv$ar_area_block : 


conv$gl_key_desc_buf : 


16 
C 10 VAX=-11 CONVERT 14.38 -1984 23:47:1 AX-11 Bliss-32 v4. 
a +9 READ_PROLOGUE 12-808= 1882 13:75:48 ANY SRETEONTCOMION 
! } 512*No. of } 
' Area Blocks =| 


} Figure out the number of blocks for the prologue area desc. 
AREA_BLOCKS = ( ( .CONVSAB_OUT_XABSUM [C XABSB_NOA ] - 1) / 8) +1; 
: The total blocks is area blocks + prologue block + key desc buffer 
TOTAL_BLOCKS = .AREA_BLOCKS + 1 + 1; 

; Get the address space. 

CONVSAR_PROLOGUE = CONVSSGET_VM( .TOTAL_BLOCKS * BLOCK_SIZE ); 


WR —OOONOUS 


} The key block points just after the prologue block 
CONVSGL_KEY_DESC_BUF = .CONVSAR_PROLOGUE + BLOCK_SIZE; 


esssssssssssssssssssssssse 
SANS NSO 


The area descriptors is after everything 


PR IEIF IFIP —— —— — — — — — — — — ——————— a dd dd td ed et 


—— ORAS SSSI 


5 
i 
9 
91 
35 
8 8 CONVSAR_AREA_BLOCK = .CONVSGL_KEY_DESC_BUF + BLOCK_SIZE; 
0 38 Read in the prologue block 
0 98 READ_BLOCK( .CONVSAR_PROLOGUE,1 ); 
— 9 Read each of the area blocks 
0 0 INCR I FROM 0 TO .AREA_BLOCKS - 1 
5 04 READ_BLOCK( .CONVSAR_AREA_ BLOCK + ( .1 * BLOCK_SIZE ) 
0 05 .CONVSAR_PROLOGUE t PLGSB_AVBN J + .1 5; 
oF : Set the proper prologue version flag 
209 SELECTONE -CONVSAR_PROLOGUE C PLGSW_VER_NO J OF 
11 PLGSC_VER_NO J : CONV$GB_PROL_V1 = _SET; 
3 pL Gee VER. ox J : CONV$GB_PROL_V2 = “SET; 
1 PLGSC_VER_S J : CONVSGB_PROL_V5 = SET; 
3 OTHERDISE : SIGNAL_STOP("CONVS_PLV ); 
1 e 
13 RETURN 
i§ END; 


TITLE conyseonio VAX=11 CONVERT 
-IDENT \V04-000\ 


~PSECT _CONVSGLOBAL,.NOEXE, PIC.2 


16 
VAX=11 CONVERT 13-5 1 AX-11 Bliss 4 
READ. PROLOGUE ae eet) aoe Ot a Mt hs fe pl 
00000 CONVSGL_KEY.DESC_BUF:: 


BL 
00004 CONVSGL_KEY DESC_VBN:: 
-BLRB & 


«PSECT _CONVSOWN,NOEXE, PIC,2 
00000 AREA_BLOCKS: 
-BLKB 


4 
-EXTRN CONVER $ FACILITY 
EXTRN FAD MAX. CONV $.BADBLK 
“EXTRN CONV GIE, CONV$_BADSOR 
SEXTRN CONV =FONF QUAL: conve CREATEDSTR 
-EXTRN CONVS_CREA ONVS_DELPRI 
“EXTRN CONV$~DUP -EONVS EXTN-ERR 
EXTRN CONV NVS-FATALEXC, CONVS-FILLIM 
«EXTRN —* —4— Lis . CONVS_TLL_KEY 
EXTRN ONVSILL LUE 
“EXTRN V$_INP 


CON 
~EXTRN CONVS_I Neve RMEM 
-EXTRN CONVS_ saves CONVS_KEY 
~EXTRN cons KEYREF CONVS LOADIDX 


NV Vv 
CONVS_ “NOKEY CONVS NOTIDX 
C ONVS_NOWILD 
CONVS_ORDER, “CONS OPENEXC | 
CONVS~ 8 * ONVS oẽtnoð 


645 
— Tae v3 $ PROL WRT 


N 

N 

N 

N 

N 

N 

N 

N 

N ® ON 

N CONVS_UDF _ KS. CONVS UD UDF _BLK 

RN CONVSSGET_VM "CORVSERRS ERROR 

N CON ROR 

N CONVSSRAS READ" “ERROR 
" CONVSAB_FCAGS,~ CONVSAB_OUT_F AB 
N 
N 
N 
N 
N 
N 
N 


CONVSAR_AREA_BLOCK 
-PSECT _CONVSCODE,NOWRT, SHR, PIC.2 


3C BB 00000 CONVSSREAD_ PROLOGUE: : 
PUSHR  #*M<R2,R3,R4,R5> 


50 00006 cf 9A if i novzeL ¢ ¢ CONVS$AB_OUT_XABSUM+8, RO 
50 » oS 09 DIVL2 RO 
0000° CF $6 00 MOVAB 1(RO), AREA_BLOCKS 


8 


11 
7 


3 


Cove 10 


VAX=11 CONVERT 


READ_PROLOGUE 
0 0000° CF 

3 $5 § 
; 00006 
—A 

0000° CF tats CF 00000200 F 
0000G CF 0000° CF 00000200 &F 
E : 
ween = 

3? 0000° i 

, D 

0 00006 CF 

0 66 8* 

53 50 4 

50 25 09 

52 0 0000G_ CF 
0000V 

OF 54 55 

50 0000G CF 

50 74 «AO 

50 60 

01 50 

07 

0000G CF 23 

02 0 

07 

0000G CF 01 

19 

03 50 

07 

0000G CF 3 

000000006 8F 

000000006 00 
: Routine Size: 181 bytes, Routine Base: _CONVSCODE 


ates 


1 
14-Sep-1 
1 1 
a 
4 
ey 90089 
C1 00033 
D 3F 
RG Baste 
ie 
20 * 1$: 
9E 00059 
9A 00050 
4 060 
H Bie 
79 aB0¢e 2s: 
DO 00075 
9E OO07A 
3C OO07E 
B81 00081 
is 0084 
9 sit 14 
11 00088 
81 8 3$: 
48 00 
90 0009 
11 0009 
B1 00099 4$: 
4s 009C 
90 000 
11 QOOA 
—48 
4 itd 6$: 
5 00084 


+ 0000 


84 13:45 


ADDL3 


* AX-11 Bliss-32 V4.0-742 
CONV. SRCJCONVCOMIO.B832;1 


o nee Neate 24 „cca⸗s 


idl etek BLOC 


RO tONVSAR PROLOGUE 
#512. CONVSAR_ PROLOGUE, - 
—5 KEY_DESC BU 
ONVSGL Key DESC_BUF, 
nysan _AREA_BLO 
CONVSAR PROLOGUE, R2 
AREA BLOCKS, RS 


MBPVWBOAaO 
e—mwm —* 
> 


FONVSAR_PROLOGUE. RO 


* RO, * 


CONVSAR MOREA BLOCK, RO, R2 
READ BL BLOCK 
r5, I, 1$ 
CONVSAR_PROLOGUE, RO 

(RO) RO 


11 
(RO), RO 
RO, #1 


i, CONVSGB_PROL_V1 
RO. #2 

#1, CONVSGB_PROL_v2 
RO, #3 | 
a. CONV$GB_PROL_V3 
grONVs 4m 


#1, LI wie 
#*A<R2,R3,R4,R5> 


* 


16 
C 10 VAX-11 CONVERT 1$-s¢ “19 247:1 AX-11 Bliss-32 V4.0-742 P. 
von boo" WRITE PROLOGUE 12-geb= 1382 $3:95:) CONV. SRCJCONVCOMIO.B32:1 age 68 
3 4 1 ZSBTTL ‘WRITE_PROLOGUE' 
- : } GLOBAL ROUTINE CONVSSWRITE_PROLOGUE : NOVALUE = 
; 1 
: $ } : Functional Description: 
3 : § : Writes the prologue area blocks back to the output file 
; 3 § i Calling Sequence: 
i $3 o 1) CONVSSWRITE_PROLOGUE () 
; ¢ ] i Input Parameters: 
; : : none 
; 5 1! Implicit Inputs: 
* i 
i ee 
3 ¢g 1 ! Output Parameters: 
s 2 1! none 
: Ste O5¢), 1 i Implicit Output 
3 oe Cc Ss: 
3 ré 0 tg } * none — 
44 1% ! Routine Value: 
3 8 8 none 
: 2 é7 i ; Routines Called: 
; 38 ‘3 WRITE_BLOCK 
; 255 51 1! Side Effects: 
3 28 0 26 1! none 
; 2 53 1! 
Bo Rey 
: 360 0256 BEGIN 
3 o¢ 0 33 H Write each of the area blocks 
i 364 9360 INCR I FROM 0 TO .AREA_BLOCKS ~ 1 
; 66 6g WRITE_BLOCK( .CONVSAR_AREA BLOCK + ( .I * BLOCK_SIZE ), 
: 6 6 . CONVSAR_PROLOGUE C PLG$B_AVBN J+ .1 ); 
mB fe 
3 270 RETURN 
3 71 8 
3 272 68 END; 
OFFC 00000 -ENTRY CONVSSURITE PROLOGUE, Save R2,R3,R4,R5.R6,~ ; 0221 
R7,RB,RI,R10,R1 3 


55 0000" ~CF DO 00002 MOVL AREA_BLOCKS, ‘RS : 0260. 


Be Oe Oe Oe Be Oe Be Oe Oe Oe Oe Oe Oe Be Be Se Oe Oe Be Oe Oe Be we Se Se Se Oe Se Se He Oe Se Se Se Se Se Se Oe Se Ge Se Se Se Se Se Se Se Ge Ge Se SH Se Oe Se Ge Se we 


2 Page 10 


pd 8 wll VAK=-11 CONVERT 1B-sep-19 $3:42:] AX-11 ° $2, 4 


SET_KEY_DESC 14-Sep-19 : 13:4 CONV.S 


ore 
we. 
34 


$8 TSBTTL ‘SET KEY_DESC* 
, GLOBAL ROUTINE CONVSSSET_KEY_DESC ( KEY ) : CLSSET_KEY_DESC = 
7 
6 Functional Description: 
75 Sets the key descriptor from the output files 
7 prologue to the requested key of reference. 
7 his routine WILL reread the key descriptor from 
3 the file. 
: Calling Sequence: 
¢ CONVSSSET_KEY_DESC( key ) 
¢ Input Parameters: 
key - Key of refrence to get 
HH Implicit Inputs: 
4 CONVSGL_KEY_DESC_BUF 
¢ Output Parameters: 
none 


Implicit Outputs: 


KEY DESC 

CONVSGL_KEY_DESC_VBN 
Routine Value: 

CONVS_SUCCESS or CONVS_NOKEY (from get_next_key) 
Routines Called: 


QESRANLSSSLES 


PIF IPIPIFIPMIPINPIMINI tt tt nn a a a an — — — — — nt ss as a os 2 ss ss se 


— —— — — — — — — — — — — — — — — — — —— — — — —— — — — — — —— SESE — —— 
I 


9 

1 CONV%GET_NEXT_KEY 
8 Side Effect . 

& none 

5 10 

8 18 BEGIN 

% 314 

0 15 DEF INE_KEY_DESC; 

; 7 LOCAL STATUS; 

$ 1 STATUS = CONVS_SUCCESS; 


: Reset to the primary key then search from there 
KEY_DESC = .CONVSGL_KEY_DESC_BUF; 
CONVSGL_KEY_DESC_VBN = 1; 


——— 
@ 
öOOSOOOOOIOOIDOOOOOSOOCSOOIOOOOOOOOOOSODOOOCOCOOSOOõOOS 
Oo 


—0 OD 


RX 


ss 


a — — — — — — — 


10 


o 
sass 


NOU EWN -O 


| 5 Routine Size: 


VAK=-11 CONVERT 
SET_KEY_DES 


1 
NEREgHM ESATA WRB! Reade 


5 } Reac the first key 

$ READ_BLOCK( .KEY_DESC,.CONVSGL_KEY_DESC_VBN ); 

? : Loop until you find the correct key 

: WHILE «STATUS AND ( .KEY NEQU .KEY_DESC [C KEYSB_KEYREF J] ) 
5 


If there are no keys then what a bummer 
STATUS = CONVSSGET_NEXT_KEY(); 


9 RETURN .STATUS 
2 1 END; 


0000° 


52 bytes, Routine Base: 


— 
oO 


BS 00000 CONVSSSET — DESC: 


POSH 22. R3,R4> 
01 00 —8 * #1, ST ATUs 
0000" CF 00 0000 MOVL CONVSGL vey DESC BUF. yee _DESC 
01 DO O000A MOVL #1, CONVSGL-KEY_BES 
0000" CF pO 0000F MOVL CONVSGL KEY “pest van “Ry 
58 8 00014 MOVL KEY Y DESC. R2 
0000v 30 00017 BSBw READ BLOCK 
54 €9 OOO1A 1$: BLBC STATOS, 5§ 
00 rp 0001D CMPZ7V #0, #8, 21(KEY_DESC), KEY 
08 13 00024 BEQL 2$ 
0000v 30 00026 BSBW cpwveoes NEXT_KEY 
50 DO 00029 MOVL RO, Tus 
EC 11 0002C BRE 
54 00 Bangs 23: MOVL STAT RO 
1¢ BA 00031 POPR 43 *R3,R4> 
05 00033 RSB 
_CONVSCODE + O0E3 


CONV. sRe (itn ONVCOMIO.832;1 


Pete Se Se Se Be Se Be Be Be Be Be Be Be Be Be 


— — — ⸗ 


742 


1 
al uzenzu 13:75:68 ECOwvesh 83251 


NE 14-Sep-19 
ZSBTTL ‘GET _NEXT ey 
GLOBAL ROUTINE CONVSSGET_NEXT_KEY : CLSGET_NEXT_KEY = 
i 

Functional Description: 


Sets the key descriptor from the output files 
prologue to the next key of reference if any 


Calling Sequence: 
CONVSS$GET_NEXT_KEY() 
Input Parameters: 
none 


Implicit Inputs: 


WN O OOBNOY FU ⏑ OOVNOUE WwW 


1 
: : 
1 
14 
1! 
1} 
1! 
1! 
1! 
1! 
1! 
uf 
14 
9 1! 
se. 
ee 
1! 
0 1! 
. : KEY_DESC 
0 1 | Output Parameters: 
0364 1! none 
0365 1! 
4 : Implicit Outputs: 
0368 1 KEY_DESC 
0369 1! 
84 Routine Value: 
0378 : : CONV$_SUCCESS or CONV$_NOKEY 
0374 1 | Routines Called: 
0375 1! 
0377 : : READ_BLOCK 
0378 1 | Side Effects: 
0379 11 . 
Bee : Could read a new key desciptor into memory 
038 1 i-- 
0383 1 
90 0384 BEGIN 
91 85 
, 56 _ DEFINE _KEY_DESC; 
94 388 ! If the next key in the chain is not in this block 
95 88 then get the next block in the chain 
39 0391 if .KEY_DESC C KEYSL_IDXFL J] NEQ 0 
98 0 3 THEN 
99 9 BEGIN 
400 94 
—8* 95 Get the VBN of the next block 
403 9 $3 CONVSGL_KEY_DESC_VBN = .KEY_DESC C KEYSL_IDXFL J; 
405 0399 ! Have key block point to the right plece in the new block 


1 
C 10 VAK-11 CONVERT 7 18-se -1984 :47 AxX-11 Bliss-32 V4.0-742 Pa 13 
88 GET_NEXT_KEY 14-Sep-1984 13:45 4 CONV SRC — 10.832;1 — 
8 KEY_DESC = .CONVSGL_KEY_DESC_BUF + .KEY_DESC C KEYSW_NOFF J; 
499 08 } Read the block 
61] 05 READ_BLOCK( .CONVSGL_KEY_DESC_BUF,.CONVSGL_KEY_DESC_VBN ) 
tig oF END 
414 8 ELSE 
415 09 
rey 19 } If the offset is 0 then there are no more keys 
618 \¢ if .KEY_DESC C KEYSW_NOFF ] EQL 0 
420 14 RETUR 
est Bete - ETURN CONVS_NOKEY 
4 ¢ 84 
Point the key block to the next key descriptor 
4 5 0419 2 KEY_DESC = .CONVSGL_KEY_DESC_BUF + .KEY_DESC C KEYSW_NOFF J; 
427 0421 : RETURN CONV$_SUCCESS 
428 04 ¢ 
429 04 1 END; 
OC BB 00000 CONVSSGET NEXT _KEY: 
POSH —— : 0344 
6B 05 00002 TStL (KEY_DESC) ; 0391. 
18 13 00004 BEQL 1$ 3 
0000" CF 6B b0 00006 MOVL (KEY DESC), CONVS$GL_KEY_DESC_VBN 3 0397 
58 04 C 00008 MOVZ2WL 4(KEY_DESCS, KEY_DESC : 0401. 
58 0000" CF CO OO00F ADDL2 CONVSGL_KEY_DESC_BUF, KEY_DESC 3 
52 0000° CF 7D 00014 MOVaQ CONVSGL KEY “DESC_ fae ; 0405 
0000v 30 00019 BSBW READ_BLOCK 3 | 
| a 84 BRB bs 
04 AB 83 OO1E 1$: TSTW 4(KEY_DESC) : 0412. 
09 1 pons BNEQ $ 3 | 
50 000000006 . p0 800 3 MOVL #CONVS_NOKEY, RO 3: 0414 
C 11 OO0O2A BRB 4$ ; 
58 04 AB 3C 0002C 28: MOVZWL 4(KEY_DESC), KEY_DESC : 0419 
58 0000" CF CO 00030 ADDL2 CONVSGL_KEY_DESC"BUF, KEY_DESC 3 
50 01 00 804 3$: MOVL é 3: 0421 
OC BA 00038 4$: POPR #*M<R2,R3> ; 0423 
05 00034 RSB ; 
i Routine Size: 59 bytes, Routine Base: _CONVSCODE + 0117 


[ 
if 1 
CONVSCOMIO VAX=-11 CONVERT 15-Sep-1 747 AX-11 Bliss-32 V4.0-742 Pa 14 
3866 WRITE Xtv ofst 28 21 30 ß :13 CONV. she £388 ONVCOMIO.B832;1 = (8) | 
: 431 4 1 ZSBTTL ‘WRITE_KEY athe 
; 2 i : PL OBAL ROUTINE” CONVSSWRITE_KEY_DESC : CLSWRITE_KEY_DESC NOVALUE = 
 < 1 i 
: 5 3 } Functional Description: 
. : ? : } Writes back to the output file the current key descriptor 
; 439 4 § 1 Calting Sequence: 
; 6460 © Se 
3 rr} 2 i CONVSSWRITE_KEY_DESC() 
3; «646 1 i Input Parameters: 
: 666 1: none 
3 ACE f peepee 
; cit Inputs: 
ae 8 0640 Tie 
3; 448 Ree) 1! CONVSGL_KEY_DESC_BUF 
: 6469 9 1! CONVS$GL_KEY_DESC_VBN 
; 650 0443 1: 
; 651 pete 1: nae © Parameters: 
: re 45 1! none 
; 6 0446 1: 
; 654 044 1: —— — tase 
3 655 0448 1: 
3; 656 0449 1! 
3: 657 0450 1 | Routine Value: 
3; 658 0451 1: none 
3; 659 R636 1: 
'; 460 0453 1 ! Routines Called: 
; 661 0454 1 i 
; 662 0455 1: WRITE_BLOCK 
; 4635 0456 1! 
: 4646 0457 1 | Side Effects: 
; 665 0458 1! none 
: 666 0459 1: 
3; 667 0460 1 i- 
; 466 0461 1 
; 469 Robe 2 BEGIN 
; 470 04635 2 
; rie pees 2 WRITE_BLOCK( .CONVSGL_KEY_DESC_BUF,.CONVSGL_KEY_DESC_VBN ); 
3 67 0466 $ RETURN 
; 676 vee! 2 
: 675 68 1 END; 
OC BB 00000 CONVSSWRITE KEY_DESC: 
. PUSAR “#*M< <R2, R3> : 0425. 
52 0000* CF 7D 0000 mova CONVSGL_KEY _DESC_BUF, R2 3: 0464 
0000v 30 88 BSBW WRITE BCOCK™ 3 | 
OC BA OOOOA POPR #*M<R2,R3> ; 0468 | 


5 0000C 


——E 


VAK-11 CONV 
WRITE_KEY_D 


; Routine Size: 13 bytes, 


R 
8 


T 
C 


Routine Base: 


-CONVSCODE + 


0152 


S-sep-1 
12-8ep-1 


Be 93:75:48 EeOwviske) 


=32 v4.0-742 
— — —— 


Oe Oe Oe Be Oe Be Oe Oe Be Oe Se Oe Se Se Be Se Be Ge Se Se Se Se Se Ge Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Ge Se Se Se Se SH Se Se Se Se Se Se Se SH Se Se Se oe Se oe 


H 1 
CC .vSCOMIO VAK=11 CONVERT 15-Sep-1984 23:47:1 AX-11 Bliss-32 V4.0-742 
906-008 WRITE_AREA_DESC 12-8 08- 138 34331 CONV. SRCICONVCOMIO.B832;1 
477 $9 1 ZSBTTL ‘WRITE_AREA he} 
8 39 GLOBAL ROUTINE” CONVSSWRITE_AREA_DESC ( AREA ) : CLSWRITE_AREA_DESC NOVALUE = 
480 3 11 
48) 475 1 ! Functional Description: 
3 i i Wri back h fil h k d i 
! rites back to the output e the current key descriptor 
“BG o47g 1 | 4 
485 0477 1! Calling Sequence: 
486 83 1! 
re 14 8 CONVSSWRITE_AREA_DESC( AREA ) 
489 cbt 1 ! Input Parameters: 
04 ; 1! : 
491 0485 1! AREA = Area number to write 
49 0484 1! 
49 0485 1! Implicit Inputs: 
494 ose 1! 
495 87 1! CONVSAR_AREA_BLOCK 
496 0488 1! 
497 0489 1 ! Output Parameters: 
498 0490 1! none 
499 0491 1! 
500 8 1 ! Implicit Outputs: 
501 04935 1! none 
208 0494 1! 
50 0495 1 ! Routine Value: 
504 0496 1! 
505 0497 1! 
506 0498 1 ! Routines Called: 
507 0499 1! 
508 0500 1: WRITE_BLOCK 
509 0501 1! 
510 B28 1! Side Effects: 
511 0503 1! none 
aig 0506 1! 
51 0505 1 !-- 
514 0506 1 
515 0507 BEGIN 
516 0508 
517 0509 LOCAL 
518 0510 VBN 
519 0511 BUFFER: 
359 38 — 
25) zut Determine what block the area descritor is in 
538 Bate VBN = .CONVSAR_PROLOGUE C PLGSB_AVBN ] + ( ( .AREA- 1) / 8); 
352 0317 Where in the buffer is the area descriptor 
25$ 0519 BUFFER = .CONVSAR_AREA_BLOCK + 
258 8 C.VBN =~. CONVSAR_PROLOGUE [ PLG$B_AVBN ] ) * BLOCK_SIZE ); 
4 03 § WRITE_BLOCK( .BUFFER,.VBN ); 
3 524 RETURN 
5 0525 


seg 


: 534 


; Routine Size: 


VAX=11 CONVERT 


WRITE_AREA_DESC 
0526 1 END; 

50 

51 

ef 

1 

53 

53 51 

53 53 

$2 53 

53 


46 bytes, 


Routine Base: 


AX-11 Blis 


s-32 V4.0-742 
CONV. Re raid 


oc BB 00000 CONVSSURITE AREA, DESC: : 
00006 cr 000 MOVL — _PROLOGUE, RO 
1 000 6 a 
08 a4 0009 DIVL2 @# 
66 AQ 9A 900 MOV ZBL 1 5<RO), R2 
52 ¢0 00 ADDL2 2, VBN 
66 9a 0001 HOVZBL 102(RO), R3 
5 c3 0001 SUBL3_ _R3, , RS 
09 78 00018 ASHL. #9, RS 
00006 CF c 90018 ADDL3 CoMvSAR LAREA_BLOCK, R3, BUFFER 
51 b 0025 MOVL VBN 
0000v 30 00028 BSBW WRITE BLOCK 
OC BA 00028 POPR #°M<R2Z,R35> 
05 0002D RSB 
_CONVSCODE + 015F 


CONVCOMIO.B32;1 


— — — a re 


PPA AMMNIVIIUT EE 
DONO One 


SETRRARAL ARAL EEE EE 


ARGS 


AAO 


Be Oe Oe Be Oe Be — Be Be Oe Be Oe Be Be Se Se Be Oe Se Se Oe Se Be Be Oe Se Oe Se Be Se Se Be Se Se Se Se Se Oe Oe Se Oe Oe Se Oe Se Oe Oe He ee Se Oe Oe Se ee Be se 
——— 


SLSSELSEREAVASSaVSARATVSSSLE 


PPA AAGAAM MIN? 


Routines Called: 


1 
AX=11 CONVERT 1b-5e -1984 247:1 AX-11 Bliss-32 V4.0-742 Page 18 
EAD_BLOCK 12-8 08-1 3b 43:95: CONV. SRCICONVCOMIO.B32;1 . (10) 
7 ZSBTTL ‘READ_BLOCK’ 
3 ROUTINE READ_BLOCK ( BUFFER : REF VECTOR C ,WORD J,VBN ) : CLSREAD_BLOCK NOVALUE = 
0 i 
é 1 } Functional Description: 
5 § : Reads a block in the output files prologue and checks the 
2 ¢ checksum value for it 
3 Calling Sequence: 
3 8 READ_BLOCK( buffer,vbn ) 
ary Input Parameters: 
246 : buffer - Buffer to read the block into 
a7 } vbn - VBN in the prologue to read 
545 Implicit Inputs: 
248 none 
54 
548 Output Parameters: 
549 none 
332 1 | smoticit output 
c utputs: 
226 none . 
55 
554 Routine Value: 
555 none 
556 
557 
558 
559 
560 
8 
388 
5 
5 
5 
5 
5 


The file is open so there should be a full name around 


FILE_NAME { DSCS$W_LENGTH J] = .CONVSAB_OUT_NAM [_NAMSB_RSL J; 
FILENAME C DSCSATPOINTER J] = .CONVSAB_OUT_NAM C NAMSC_RSA 3; 


CHECKSUM 
Side Effects: 
none 
64 — — 
65 
66 BEGIN 
£8 CONV$AB_OUT_RAB [ RABSL_BKT ] = .VBN; 
569 CONV$AB~OUT~RAB [ RABSL-UBF J = .BUFFER; 
370 CONV$AB-OUT~RAB { RABSW~USZ J = BLOCK_SiZE; 
378 SREAD( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_READ_ERROR ); 
574 if .BUFFER C 255 J NEQU CHECKSUM( .BUFFER ) 
575 THEN 
576 BEGIN 
57 
378 LOCAL FILE_NAME : DESC_BLK; 
5 
5 
5 


àG —— 9 tt 


1 
CONVSCOMIO VAK=11 CONVERT 18-Sep-1984 23:47:1 AX-11 Bliss-32 v4.0-742 Page 19 
yoet000" READ BLOCK are e= teks 93:1524 CONV _SREIEONYCOMIO BS2—1 29° 10) 


: 593 
: 338 5 5 SIGNAL_STOP( CONVS_READERR,1,FILE_NAME,CONV$_PROERR,1,.VBN ) 
; END; 
3 3 5 : 
; 598 5 RETURN 
; 599 590 
; 600 0591 END; 
-EXTRN SYSSREAD | 
SE 08 C2 00000 READ_BLOCK: | 
UBL2 #8, SP : 0528 | 
00006 CF 53 D0 00003 MOVL VBN CONVSAB, OUT RAB* 56 ; 0568 
00006 CF 52 00 00008 MOVE BUFFER, CO NVSAB BUT _RAB+36 > 0569 | 
00006 CF 0200 8F B80 0000D MOV OOT _RAB+32 : 0570) 
00006 CF 9F 00014 PUSHAB eaten’ READ ERROR ; 0572 | 
00006 CF 9F 00018 PUSHAB CONVSAB_OOT RAS 3 
000000006 00 02 FB 0001C CALLS #2, SYSSREAB ; | 
0000v 30 00023 BSBW = CHECKSUM ; 0574 | 
50 OIFE 2 10 90 ED 00026 CHPZV #0, #16, SIOCBUFFER), RO ; | 
27 13 00020 BEQL i 3 | 
6E 00006 CF 98 O00eF MOVZBW CONVSAB_OUT_NAM+3, FILE_NAME ; 0582. 
046 AE 0000G CF 00 00034 MOVL CONVSAB_OUT_NAM+4, FILE_NAME+4 : 0583) 
53 DD 0003A PUSHL VBN > 0585 | 
01 DD 0003c PUSHL #1 3 
000000006 8F DD 0003E PUSHL  #CONVS$_PROERR ; 
OC AE 9F 00044 PUSHAB FILE NAME ; 
01 DD 00047 PUSHL ; 
000000006 8F DD 00049 PUSH ACONVS READERR ; 
000000006 00 06 FB 0004F CALLS , LIBSSTO ; 
zt 08 CO 00056 1S: ADDL2 #8, SP ; 0591 
05 00059 RSB ; 


; Routine Size: 90 bytes, Routine Base: _CONVSCODE + 018D 


2222 
see⸗⸗⸗ 


DED et et et et et ot ot 


10 VAX=11_ CONVERT besep-19 4 $5740: 13 AX-11 . 


2 Page 20 
WRITE _BLOCK 14-Sep-1984 13: CONV.S ; . as 


Liss- 
CJCON 


3 ZSBTTL ‘WRITE BLOCK’ 

7 ROUTINE WRITE_BLOCK ( BUFFER : REF VECTORC,WORD J,VBN ) : CLSWRITE_BLOCK NOVALUE = 
595 1! 

2 ' Functional Description: 

598 Calculates a checksum for a block and writes the block to 

24 the output files prologue 

bobs Calling Sequence: 

0608 WRITE_BLOCK( buffer,vbn ) 


oO 
3 
3S 


à — 9 — — — — — Ss Ss Ss Ss Ss SS SS — — — ——— 


Input Parameters: 


8 
28 


buffer - Buffer to write the block from 
vbn - VBN in the prologue to write 


Implicit Inputs: 
none 


Implicit Outputs: 
none 


i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
; Output Parameters: 
i 
i 
i 
' 
; Routine Value: 
i 
i 
i 
i 
‘ 
i 
' 
i 
i 


28383838388888888888 
Oo o —0 


ò — — 9 "OO 


none 
Routines Called: 
CHECKSUM 
! Side Effects: 
none 
1 BEGIN 
0635 BUFFER C 255 ] = CHECKSUM ( .BUFFER ); 
0635 CONV$AB_OUT_RAB [ RABSL_BKT ] = .VBN; 
06 CONV$AB-OUT~RAB [ RABSL-RBF ) = .BUFFER; 
0637 CONV$AB~OUT~RAB [ RABSWIRSZ } = BLOCK_SIZE; 
8 It's ok to call rms_read_error it works for writes tc 
Ogi $WRITE( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_READ_ERROR ); 
: RETURN 
644 
0645 END; 


; Routine Size: 


41 bytes, 


VAX=11 CONVERT 
WRITE BLOCK 


000000006 00 


Routine Base: 


~CONVSCODE 


Be 92:15:48 


SEXTRN 
30 00000 wRITE_BLOCK: 
BSBW 
BO 00003 mOVW 
DO 0000 MOVL 
D0 00000 MOVE 
BO 00012 mOVW 
F 0001 PUSHAB 
zu 
08 00038 $6 
+ 0167 


SYSSWRITE 


CHECKSUM 
RO, 510(BUFFER) 


AxX-11 BL 
CONV. SRC 


VBN, CONV$AB_OUT_RAB+56 
aur FER CONVSAB_OUT RAB*40 
#512, CONV$AB_OUT RAB+34 
CONVESRMS READ ERROR 


CONV$AB_OOT_R 
i SYSSWRITE 


Be Se Oe Se Oe Se Be Se Se Se Oe Ge Se Se Se Be Ge Ge Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se we Se Se Se Se Se Se Se Se Se Be Oe Ss Os Se Se oe 


1 
C 10 VAX=11 CONVERT Bese -1984 23:47:1 AX-11 Bliss-32 V4.0-742 Page 22 
‘Soe CHECKSUM 1228 08=198e 3 CONV. SRCICONVCOMIO.B32;1 . 3 
657 § 1 XSBTTL * CHECKSUM" | 
o28 64 : ROUTINE CHECKSUM ( BLOCK : REF VECTOR C ,WORD ] ) : CLSCHECKSUM = 
660 § 1! 
08g best : Functional Description: 
66 1! Calculates a checksum for a block and writes the block to 
664 0688 1! the output files prologue 
665 4 1! 
666 2 1 ! Calling Sequence: | 
667 $ 1! 
668 2 1! CHECKSUM( buffer ) 
1! 
$50 38 1 ! Input Parameters: 
67) beet i i buf f 512 byte buffer t lculate the check f 
! uffer — e buffer to calculate the checksum for 
78 066g 1 “ | 
674 0665 1! Implicit Inputs: 
675 0664 1! none 
ors Os6¢ 1 | output P t 
' Output Parameters: 
678 0667 1! non 
679 0668 1! 
680 0669 1°! Implicit Outputs: 
681 0670 1! none 
—8 0671 1! 
68 pore 1 ! Routine Value: 
684 0673 1! 
685 0674 1! RO - Checksum 
686 0675 1! | 
687 2676 1 ! Routines Called: 
688 0677 1! none | 
689 0678 1! 
690 0679 1 | Side Effects: 
691 0680 1! none 
69 0681 1! 
69 0682 1 i-- 
6946 0683 1 
695 0684 BEGIN 
696 0685 E 
697 0686 ' Calculate the checksum for this block 
698 0687 ‘ 
8 pons LOCAL CHECKSUM : WORD; 
701 CHECKSUM = 0; 
70 0691 
70 069 INCR J FROM O TO 254 BY 1 
704 069 
705 0694 CHECKSUM = .CHECKSUM + .BLOCK C .J 1]; 
706 0695 
707 0696 RETURN . CHECKSUM 
708 069 
709 0698 1 END; 


| 2 
ggevgggmio. yar} coment — P83 
51 84 00000 CHECKSUM: 
CLRw CHECKSUM : 0690 
1 626 26 Sooet 18: Abeta CK) CJ}, CHECKSUM wee 
F4 $0 000000F E gf 8 AOBLEQ £350 i$ F 
1 3 MOV ZUL the ckKSUA, RO ; 0696 


| 
| 
| Routine Size: 20 bytes, Routine Base: _CONVSCODE + 0210 


s 70 9 «1 
: 711 8580 0 END ELUDOM 
-EXTRN LIBSSTOP 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: ~CONVSGLOBAL 8 NOVEC, WRT. RD .NOEXE,NOSHR, LCL, REL. CON, PIC,ALIGN(2) 
; _CONVSOWN 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: =CONVSCODE 548 NOVEC.NOWRT, RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(2) 
; Library Statistics 
3 cusceses $yabels —ü— Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILI Bat 18619 3 1000 00:01.8 
3 7$255$DUA28: (CONV. SRC) onvenT. L32;1 165 i 5 17 00:00.2 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CONVCOMIO/OBJ=OBJ$:CONVCOMIO MSRC$:CONVCOMIO/UPDATE=(ENHS$: CONVCOMIO) 
3; Size: 548 code + 12 data bytes 
; Run Time 8 3.1 
3 f lapsed. 1 ime: :3 
3 nes/CPU Min: 11 
: Lenenes/CPU-Rin: 10816 
: poner Used: 97 pages 
3; Compilation —2 


— 


oD 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


DIG 
CON 


= 
VAX/VMS V4.0 I 


I 
= 


™ AH-BT13A-SE 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


-BT13A-SE — 
VAX/UMS V4.0 


Ho065 


